home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _SoundPos.au3 < prev    next >
Encoding:
Text File  |  2007-09-08  |  1.1 KB  |  25 lines
  1. #include <Sound.au3>
  2. ;open sound file
  3. $sound = _SoundOpen(@WindowsDir & "\media\Windows XP Startup.wav", "Startup")
  4. If @error = 2 Then
  5.     MsgBox(0, "Error", "The file does not exist")
  6.     Exit
  7. ElseIf @error = 3 Then
  8.     MsgBox(0, "Error", "The alias was invalid")
  9.     Exit
  10. ElseIf @extended <> 0 Then
  11.     $extended = @extended ;assign because @extended will be set after DllCall
  12.     $stText = DllStructCreate("char[128]")
  13.     $errorstring = DllCall("winmm.dll","short","mciGetErrorStringA","str",$extended,"ptr",DllStructGetPtr($stText),"int",128)
  14.     MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & DllStructGetData($stText, 1) & @CRLF & "Please Note: The sound may still play correctly.")
  15. Else
  16.     MsgBox(0, "Success", "The file opened successfully")
  17. EndIf
  18. _SoundPlay($sound, 0)
  19. $splashtext = SplashTextOn("Current Position", _SoundPos($sound, 1), 300, 90, Default, Default, 18, Default, 55)
  20. While 1
  21.     Sleep(100)
  22.     ControlSetText("Current Position", "", "Static1", _SoundPos($sound, 1))
  23.     If _SoundPos($sound, 2) = _SoundLength($sound, 2) Then ExitLoop
  24. WEnd
  25. _SoundClose($sound)